home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / OldSrc / CH2 / SRC / BKMODE.BAS next >
BASIC Source File  |  1996-04-18  |  2KB  |  35 lines
  1. Attribute VB_Name = "BkMode"
  2. Option Explicit
  3.  
  4. #If Win32 Then
  5.     Global Const PS_DOT = 2
  6.     Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long
  7.     
  8.     Global Const HS_BDIAGONAL = 3
  9.     Declare Function CreateHatchBrush Lib "gdi32" (ByVal nIndex As Long, ByVal crColor As Long) As Long
  10.     
  11.     Global Const TRANSPARENT = 1
  12.     Global Const OPAQUE = 2
  13.     Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long) As Long
  14.     
  15.     Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
  16.     Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
  17.     Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
  18.     Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  19. #Else
  20.     Global Const PS_DOT = 2
  21.     Declare Function CreatePen Lib "GDI" (ByVal nPenStyle As Integer, ByVal nWidth As Integer, ByVal crColor As Long) As Integer
  22.     
  23.     Global Const HS_BDIAGONAL = 3
  24.     Declare Function CreateHatchBrush Lib "GDI" (ByVal nIndex As Integer, ByVal crColor As Long) As Integer
  25.     
  26.     Global Const TRANSPARENT = 1
  27.     Global Const OPAQUE = 2
  28.     Declare Function SetBkMode Lib "GDI" (ByVal hdc As Integer, ByVal nBkMode As Integer) As Integer
  29.     
  30.     Declare Function SetBkColor Lib "GDI" (ByVal hdc As Integer, ByVal crColor As Long) As Long
  31.     Declare Function SelectObject Lib "GDI" (ByVal hdc As Integer, ByVal hObject As Integer) As Integer
  32.     Declare Function DeleteObject Lib "GDI" (ByVal hObject As Integer) As Integer
  33.     Declare Function Ellipse Lib "GDI" (ByVal hdc As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
  34. #End If
  35.